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QL CORNER 


This months article has been inspired by Harvey Rait, President of the LIST 
Group. Harvey's QL power supply failed and he asked me if I could repair the 


power supply for him. The only problem that 1 had was opening up the supply 
case. 


I was able to remove two out of the four, cross-slotted Screws, destroying 
two screw drivers during that process. Fred Stern took the power supply home; 
drilled out the remaining screws and delivered the supply to me via Bob 
Malloy. This was a real team effort and this is just what LIST is all about! 


The Power Supply consists of a small printed circuit board attached to eight 
transformer windings. First, 1 checked the output voltage from the line 
delivering 9 - 12 VDC to the internal QL regulator (the RED lead). The 
voltage reading was approximately +5 Volts DC, much too low! The first check 
was to determine if the four rectifier diodes were OK. Using an OHM meter I 
checked each of the four 1N54006 diodes, back to back. One of the diodes 
appeared to be shorted, so I removed all four of them and then checked them 
in both directions with an OHM meter. One diode was shorted and another 
diode displayed some leakage. S 


. I replaced the two original good diodes and installed two new diodes (1N5401, 
100 Volt rating) into the printed circuit board and then tested the output 
for proper voltage. The supply output indicated +11.5 VDC unloaded (with out 
the cable attached to the QL). The Power cable was then connected to a QL and 
when powered up the QL responded as it should. 


Some words of caution about reparing the QL power supply: The printed circuit 
board is made from phenolic resin PC material with a thin copper overlay. 
This type of PC material is prone to warps and cracking. If you have to 
remove any of the SIX diodes on the board, use a hot soldering iron and some 
sort of desoldering tool to pry the diodes out. The diode leads are 
approximately 1/16" in diameter, heavier than most components you will 


encounter. Before you reinsert the original diodes into the PC board, 
carefully file off any burrs and excess solder coating on the diode leads so 
that they fit into the PC board holes easily - otherwise if you apply too 


much pressure on the diodes during insertion and the leads aren't smooth, the 
chance of lifting up the foil trace on the PC board is great, making not only 
the repair difficult but having to repair the broken trace by adding a short 
length of tinned wire across the fractured trace. 


I tested Harvey's Power Supply unloaded, in other words, it was not connected 
to the QL before I was sure that the voltage for the QL internal voltage 
regulator fell between +11 - +12VDC. Once the proper unloaded voltage fell 
within the above stated range; then I disconnected the power cable from the 
AC source; connected the cable to the QL and then powered up the supply for 
testing. 


I made an attempt to adjust the 2K2 (2.2K) variable control for a slightly 
higher voltage output. To my surprise, the control was sealed with a solvent 
preventing any adjustment of the control. The power supply was then 
reassembled into the case and I used 4-40x1/2" machine screws as a 
replacement for the original screws. 


Next month I will supply the printed circuit board layout, a component 
placement layout , a list of components indicating both US and European 
equivalents and a schematic for the power supply. 1 will also list voltage 
measurement points at all component junctions on the PC component layout 
and if I have the room, I will attempt to provide a simplified theory for 
the QL power supply. 


See you next month.... Bon Gilder = 


Aën Leg 


TASWORD TWO 


by Tasman 


Once upon a ume there was a word 
processor called Tasword Twi: 
" . 


AA UT 


Word Count 


Tasword Two has rapidly 
become the standard Word Pro- 
cessor for the Spectrum and has 
most of the features that pur- 
pose built WP's have. two 
features that are missing 
however are a current word 
count and automatic header. 

This is a machine code routine 


INITIAL CONDITIONS 
Word count set to zero 
File length + 256 20,736 
File start address 31,999 


Select next byte 
How many bytes to go? 


CHECK IF FINISHED 


the file? Is the most sig- 
nificant byte of DE zero? 
If so return to basic. 


Is this byte a space? If so 
try next byte. 


INCREASE WORD COUNT 
If not a space then must be 
start of new word. Increase 
word count by One. ` 


LOOK FOR END OF WORD 
Select next byte 

of word. 

How many bytes to go? 


Figure 1. the machine code routine. 


Have we reached the end of 


y 


= 


ch 


that gives, in a fraction of a se- 
cond, the number of words 
typed into the file up to present. 
Controlled from BASIC, it also 
gives a paragraph count. 

The main problemis where to 
put the code. In Tasword Two 
the text file is held between 
32000 and 52480 with an ex- 
tra 128 bytes after that ob- 
viously used for overflow 
routines. The machine code sec- 
tion is held from 54780 to 
65535. However, the machine 


code also uses bytes lower than. 


54 780 for data storage. | chose 
52610 as an address as far as 
possible from the data section of 
the machine code routines and 
no problems have arisen. The 
main disadvantage is the extra 
time the program takes to SAVE 
and LOAD, perhaps another 10 
Seconds each for the basic and 
the machine code. 

The machine code routine in- 
volves only relative jumps. You 
might be puzzled by the 256 
that is added to the DE register 
initially. This is so that the test 


' for the end of the text file is 


LD BC, 00 00 
LD DE, 51 00 
LD HL, 7C FF 


CHECK IF NEXT BYTE IS NOT A SPACE 
a INCLHL 


DEC DE 


LD A, 00 
CPD 
RETZ 


LD A, (HL) 
CP 20 32dec- space 
JR, Z next byte (a) 


b INC BC 


c INC HL 
DEC DE 


ow to add W 
-count and Header 
to Tasword II. 


simplfied. Just before the end is 
reached DE will hold OO O1 (hex 
— least significant byte first) 
and the next decrease of DE will 
leave FF OO (255 decimal) and 
the D register will hold zero and 
the routine will return to basic. 
The word count is held in the BC 
register so that the command 
PRINT USR 52610 will return 
the actual count (See lines 60 
and 9360). The code could be 
made shorter by omitting the 
CORRECT FOR END OF LINE 
ERROR routine. However this 
would give a false count 
because the routine would not 
Separate two words one of 
which ends at column 64 and 
one which begins at column 1 of 
the next line. There is a brief ex- 
planation of the code in figure 1. 


Header Routine 


This enables the recall of a pre- 
entered address heading of up to 
seven lines. It also pushed down 
the entered text so that the 


CHECK IF FINISHED 

Have we reached the end of 
the file, Is the most sig- 
nificant byte of DE zero? 

If so return to basic. 


CORRECT FOR END OF LINE ERROR 


Is this the end of a line? 


If not continue with next 
byte of word. 

If last byte of line then 
check next byte — first of 
next line. 


lf next byte is a letter 
then go to word increase. 


If this byte is nota space 
then try next byte of word. 


If END OF WORD GO TO START 


If this byte is a space look 
for next word. 


Tasword plus. 


John Wall shows h 


ordcount, 
Paragraph 


facilities 


heading does not overwrite it. 
There is a facility from BASIC to 
chage the heading at any time. 
The header information is stored 
between 52660 and 53107 — 
448 bytes or seven lines of text 
— and the code to manipulate it 
is from 53110 to 53145. The 
code is three, almost identical, 
block transfer routines of 12 
bytes each. The first is describ- 
ed in figure 2. 

The second routine has the 
values in HL and DE interchang- 
ed. The third routine moves the 
already entered text seven lines 
down and uses the LDDR in- 
stead of LDIR. 

The Basic at lines 9000 — 
simply calls the three routines in 
the right order. Routine three 
moves the text, then routine one 
prints the header. Routine two is 
used when a new or edited 
header is needed. See lines 
9010 and 9040. 


LD A, 00 
CPD 
RETZ 


LD A, 3F (63) 
ANDL 
CPL 


JR NZ, d 
INC HL 

LD A, (HL) 
CP 20 
DEC HL 


JR, NZ, b 


d LDA, (HL) 
CP20 32dec- Space 
JRNZ,c 


JR, a 


Figure 2. Block transfer routine 


Load HL with address of first 


byte to be moved: 
Load DE with address of 
destination: 


Load BC with length of block: 


Use LDIR 
Return to BASIC: 


Basic — 
Modifications 


Modifications are required to 
Tasword Basic. There is not 
much spare room in the Basic 
area with Tasword loaded SO 
Some preliminary work has to be 
done. All the numbers in lines up 
to 1000 must be changed to 
VAL "number: 

Provision must be made to 
display the information. One 
item on the STOP MENU has 
been changed and one has been 
added. Instead of "back to 
basic'' there is ""heading (for a 
letter)’’ and then “word count'' 
has been added at the bottom of 
the menu. 


1. Load Tasword in the normal 


VAL 
e 

55 PRINT : 

letter) 

69 PRINT : 
otal - 

"SU "W=" 

178 IF b=VAL 
VAL "18" 

175 IF b=VAL 
VAL "2g* 


"119* 


LD HL, CD B4 52660) 


LD DE, 7D 00 (32000) 
LD BC, CO 01 (448) 
LDIR 

RET 


2. Edit every line to 1000 
replacing numbers with VAL 
“‘number’’. Note that this 
doesn't apply to numbers in str- 
ings e.g. PRINT "2 — fix 
heading as typed’’, or numbers 
in variables e.g. j1, or initial line 
numbers but it does apply to 
GOTO and GOSUB line 
numbers. Each time you do this 
you save three bytes. You can 
check how much memory you 
have saved by typing in line 
9990 and using GOTO 9990 
every now and then. The new 
Basic requires over 1 000 bytes 
of extra space. If you need 
Microdrive routines you will 
need to make even more space 
by using VAL "number'' right 
through the program. 


3. Add or modify the lines as 
shown in the listing, making ab- 


p* 


PRINT "heading (for 


h” 


PRINT "word count t 
"SUSR VAL "526198"; TAB VAL 


"184* THEN LET i- 


THEN LET i= 


188 IF i<>VAL spe THEN PRINT A 


T i-VAL 
"1"; CHRS b;: 


"2*,VAL "31"; FLASH VAL 
GO TO VAL 


"Søg" 


599 PRINT AT VAL "28",VAL "19"; 


" ": PRINT AT VAL WE 
",VAL *3g*;* =: PRINT #VAL "1755 
press the *; FLASH VAL "1*;*ENT 


ER"; FLASH VAL "Ø"; " key to proc 


eed"'* press st FLASH VAL "1"; =" 
C"; FLASH VAL "9g"5;* to change ch 
oice S 

678 IF b=VAL *1ga* THEN GO TO 
VAL "9995" 

689 IF b=VAL "119" THEN GO TO 
VAL "9399" 

699 REM delete 


numbers in lines 9810 and 
9820 are EXACTLY as printed, 
as a single error could crash the 
entire program. 


4. Type GOTO 9800 and 
ENTER. 


5. Now delete lines 9800 to 
9990. 


6. Save your new program on 
tape (or Microdrive) by using 
SAVE "tasword'' LINE 15: 
SAVE ''tasword'' CODE 
52610,12925 lor Similar 
M/Drive commands). 


7. Check that the program sav- 
ed properly by VERIF Ying it. Use 
VERIFY ‘'’: VERIFY "'"'CODE. 


The machine code is 
automatically called each time 
you go to the menu via SYMBOL 
SHIFT/STOP and again using 
option 't'. If you have made any 
mistakes at all then the program 
will crash and you will have to 
Start again. Due to this it might 
be better to save the program 
after step 3until youare sureitis 
working properly. 

Once you have saved a copy 
asin steps 6 and7 voucan testit 
out by RUN. Going to the STOP 


menu you should see a word Es Ay 
way. Solutely certain that the count of zero. Load a file or type 
` 25 Gn SUB VAL "4999": PRINT AT 718 SAVE aSCODE VAL "32619", VAL 


"2°, VAL "9"; "print text fil 


Something in and take note of 
the wordcount value. |f you 
have a fairly long text file, try out 
the paragraph count facility. 
You will need to note the start 
line and the end line of the 
paragraph you want to count 
then go to the STOP menu and 
select '*w''. Remember the 
routine will count Separate 
punctuation marks like ''-'' as 
complete words. The same will 
apply to numbers. 

The Heading menu item 
allows you to print the heading 
already held at 52660 — or if 
there is no heading in then you 
can type your own in and 'fix' it 
to be recalled at any time. 
However, once you have fixed it 
you must then re-SAVE the pro- 
gram so that it will be available, 
each time you re-LOAD. You 
can do this saving by using item 
't' on the menu. 


"12925*: GO SUB VAL *9gg* 


798 VERIFY aSCODE : 
"29"; D 


L "21" VAL 
RUN 

9999 CLS : 
in? 


9902 IF INKEYS< ) "y = 
"n" THEN GO TO VAL 
9818 IF INKEYS="n* 

"53134": 
RUN 

90 back and type 
SEVEN LINES MAXI 
- fix heading as typed* 
9072 IF INKEYS<> "48 
GO TO VAL 
9839 IF INKEYS=" 1" 

9949 RANDOMIZE USR VAL *53122": 


ZE USR VAL 
R VAL "53119": 
7928 PRINT "1 - 
new heading 
MUM”? 782 


"n 
P 


THEN 


PRINT AT VA 
m/code O.K. *: 


PRINT "new heading? y 


AND INKEYS5<> 
"9992" 

THEN  RANDOMI 
RANDOMIZE US 


AND INKEYS«4» 
"99822" 
THEN RUN 


RUN 

9389 INPUT "Start line: "sx: IF 
X7VAL "329" op x<VAL "1" THEN G 
O TO VAL "939g* 


9318 PRINT AT VAL "18",VAL 


"31's 


> Para starts at line *$x$* 


9329 INPUT "End line: 
VAL "329" OR YKVAL "1" 


"Sy: IF y> 
OR y<x TH 


EN GO TO VAL "932g" 

9330 PRINT "para ends at line 

"SY 

9348 LET pk=VAL "52614": LET st- 
VAL "31999"«UAL "64"X(x-VAL "1") 
* LET In=VAL "64"X(y-x*VAL "1") 

9359 POKE pk*VAL "3",VAL "256*"X( 
st/VAL "256"-INT (st/VAL "256")) 


9351 POKE pk+VAL *4",INT (st/VAL. 


"256") 
9352 POKE pk,VAL "256"X(1n/VAL " 
256" - INT (1n/VAL "256")) 
9353 POKE pk*VAL "1*,INT (1n/VAL 
*256")*VUAL "1" 
93698. PRINT "para count = ";jUSR V 
AL "526190";TAB VAL "25"; FLASH V 
AL *1";"any key": PAUSE VAL "Ø" 
9379 POKE pk,VAL "Ø": POKE pk+VA 
L *"1",VAL "81": POKE pk*VAL "3", 
VAL "255": POKE pk+VAL "4",VAL " 
124": RUN 
93899 RESTORE : READ a$: FOR n=52 
618 TO 52657: LET a=VAL a$( TO 3 
): POKE n,a: LET a$-a$(4 TO ): N 
EXT n 
9818 DATA "991999999917999981933 
255124035027062090019620012625493 


SII qm nor SURE: ; 
p mios E - iM nor SE. 


167 
Aw Se 


2949245993935927862999 1862999629 
63 1652549999329G7935 126254932943 
932235 126254932932231924217" 
9829 DATA "933189295917998125991 
19299123717629193399912591718929 
599119299123717629193389632939172 
55294991964978237184291" 

9849 READ aS: FOR n=53119 TO S31 
45: LET a=VAL a$( TO 3): POKE n, 
a: LET a%=a%(4 TO ): NEXT n: STO 
P 

9999 PRINT VAL "65536"-USR VAL " 
7962* 


TASWORKD TWO 


by Summum 


i|. Onor upon a ume there was à wort 
Fore umur caiet Tamer Twr 
D 


^ — — o 

ge gp a di. ae ge e o. ooo 
Go ros. ër de oe 
LAÄzsesssss 
Zeg = 
Ana. 


» 


di 
“y 


bei 


y Es TWO has, justifi- 
ably, proved to be the most 
popular word processor prog- 

ram for the Spectrum. One of its 
attractive features is the ease with 
which you can modify it. The ideas 
which follow will allow you to custo- 
mise Tasword in a number of ways 
and all will work on any version. They 
will also work if you have altered it to 
use Tasprint, the East London Robo- 
tics memory upgrade, microdrives and 
disc drives. 

, Throughout the article direct 

mode' denotes that commands can be 

entéred directly from the keyboard 
and will give the OK report; ‘Basic’ is 
the Basic part of Tasword, reached by 
pressing STOP; and 'Tasword' de- 
notes the code part of Tasword, 
reached by pressing Y from the STOP 
menu or RUN in direct mode. Sixty 
four mode denotes 64 characters per 

line and similarly 32 mode denotes 32 

per line. 


Changing the colours 


As you might have discovered already, 
you can change the INK and PAPER 
colours used by Tasword simply by 
altering them in direct mode and 
running. That has disadvantages: the 
paper colour can only be 1, 3, 5 or 7 
and the margins will be one less than 
that. To alter the colours in 64 mode 
enter, in direct mode 

POKE 58512,54 

POKE 58513,c 

POKE 58521,54 

POKE 58522,c 
where c is 8 * paper + ink. For 
example, to get blue paper with white 
ink use c= (8*1+7) = 15. To change 
the margin colour enter 

POKE 58508,54 

POKE 58509,c 
where c is calculated as above. To 
change the border colour enter 

POKE 64516,b 
where b is between 0 and 7. To change 
the 32 mode border use 

POKE 60641,b 
calculating b as ‘above. 


Listing 1. word count data 


10 LET clr=31940: LET t=0: FOR 
n=1 TO 59: READ a: POKE (clr+n) 
ya: LET t=t+a: NEXT n: IF t<>690 
S THEN PRINT "ERROR": STOP 

20 SAVE "word"CODE clr+1,59 

97 REM 3*4 4 43 94 44 449 9 A4 0E 

98 REM WORD DATA 

99 REM 4641-4200 at de dE E d ab AE E 4-2 3 4-2 3 3: 3-3 
100 DATA 42,181, 253,221,42, 11,9 


0,1,0, 54,27, 26,254,352, 40,24 
110 DATA 254,128,48,20 
120 DATA 14, 1, 16,242,9,58, 182,2 


53,186,32, 232, 58, 181,253,187,32, 


2,221,94,4, 221, Se, 5, 25, 235, 33, o, 


Those POKEs will not change the 
bottom two lines. To change those 

POKE 64570,c 
and for the second to the bottom line 
use 

POKE 59993,c 
calculating c as above. Note that on 
this line the top half is INK and the 
bottom PAPER. (To keep the same 
colours as above you should poke it 
7*8+1=57.) 

When returning to Basic the INK 
and PAPER colours are restored to 
those used before running Tasword 
but the Border is not. To remedy that 
add a BORDER command on line 20 
before the CLS. As those POKEs are 
within Tasword they will be retained 
when the program is saved. 


Lines, Characters, 
Words 


When returning from Tasword, to the 
STOP menu, the program always goes 


226,229,193,201,175, 185,40, 234,35 
5,13,24,230 


Listing 2. word count additional basic 


1 DEF FN w(x)*-USR 31941 
15 SEE TEXT 

174 IF b=119 THEN GO TO 4500 

705 SEE TEXT 
4500 CLS : GO SUB 4000: PRINT AT 

11,53"Number of Words = "32 PRI 
NT FN wia) 
4510 PRINT 403" Press Any Key 
To Continue": PAUSE 1: PAUSE Or 
GO TO 20 


—R 


to line 20. When going to Tasword 
from the Basic part of the program 
there are two routes, from line 10 — 
the usual one — and line 3060 — in 
the process of using search and re- 
place. That can be employed to add a 
count either of lines or characters 
used. To count lines add 

79 PRINT #0;AT 1,0;a/64;“ Lines 
Used — ”; ; (PEEK 64150+256*PEEK 
64151+22)— —a/64;* Lines Free” 
and to count characters add 

79 PRINT #0;AT 1,0;ch;“ Charac- 
ters Used—”; (PEEK 64150 + 256 * * 
PEEK 64151 + 22) * 64) — ch; 
Free” 

Alter the USR statements in lines 10 
and 3060 to be LET ch=USR, fol- 
lowed by the rest of the line, and add 
LET a=ch in line 20 after the CLS. 

The fastest way to count words is to 
add a short machine code program. 
Enter listing one, run it and save the 
code on tape. Load a copy of Tasword 
and add the program lines in listing 
two — you will also have to alter the 
CLEAR address in line 15 to 31940 
and add another LOAD CODE”. To 
ensure the code is saved automatically 
add 

705 SAVE “word” CODE 31941,59 
Alternatively provided you are only 
using Tasword from cassette add 

705 POKE 23736,181: SAVE 
"word" CODE 31941,59: POKE 
23736,181 


That will stop the “press any key” 
message appearing and save the three 
parts but will cause odd results if used 
with microdrives or disc drives. 

Once that is done LOAD the word 
code and then save TASWORD in the 
usual way. , 1 

The routine searches through the 
file, taking the length from Basic and 
the start of the file from locations 
within Tasword, and counts a word as 
being a non-space followed by a space. 
It includes words which start at the 
end of a line, making it a true count. 

A space is taken to be a character 
with a code of 32 or a graphics 
character with a code of 128 or more. 
If you do not want to include those 
graphics then change the four DATA 
statements in line 110 to zero. If you 
use Tasprint the tilde character — 
code 126 — is used to change text 
styles and is treated by Tasword as a 
space. In that case change the second 
DATA item in line 110 (128) to 126. 

The method of calling the routine 
may be new to you and relies on the 


way in which the Spectrum treats: 


user-defined functions and stores 
numbers. When a function is called 
the system variable DEFADD holds 
the address of the definition of that 
function. 

If a single letter is used the memory 
locations 3 to 7 on from that hold the 
five byte floating point form of the 
variable being used. If that value is an 
integer — between — 32767 and 32767 
— it can be found in locations 4 and 5. 
Unfortunately the Spectrum takes a 
relatively long time to delve into the 
ROM but the method is useful for 
routines which require one, or more, 
parameters to be passed. 

Machine code buffs might like to 
move the word count code to a REM 
statement for ease of loading and 
saving. 

If you are familiar with the calcula- 
tor routines in the ROM, you can 
make use of this method in your own 
programs; the INT-STORE routine in 
the ROM at 2D8Ch is particularly 
useful. For further discussion of the 
calculator see Helpline in Sinclair 
User, February. 


Graphics and Pounds 

If you are using a full-sized printer 
you can send control codes to it using 
the graphics characters. It is a good 
idea to add a space — 32 — to the 
sequence as otherwise the line, when 
printed, appears to have lost a charac- 
ter. That can be added before or after 


HL=Word Count 

DE=Fosition in File 

B=64 (Characters per Line) 
C=Flag O-Space 1=Non-Space 


EASO 


the sequence. As a matter of personal 
preference I tend to put it after, except 
for the underline codes. Code 140 
should have it before and 131 after. 

The pound sign has caused many 
headaches. The problem is that, as far 
as the Spectrum is concerned, the 
pound has a code of 96 whereas most 
printers use a code of 35. To further 
complicate matters the printer also 
uses 35 to denote the hash character. 

It does that by having a number of 
alternative character sets and you have 
to switch between them, either using 
software or by setting switches in the 
printer. The code of 96 will be printed 
as a backward apostrophe. 

The ideal solution would be to 
check all the characters being sent to 
the printer and make the necessary 
changes. This can be done in software 
but as it will vary according to the 
printer and interface used it is difficult 
to give a general method. 

Two methods can be used. The first 
is to set the printer to use the USA 
character set so that it will print a hash 
when sent a code of 35. In that way the 
hash in listings will be printed cor- 
rectly. 

If one of the graphics characters — 
say 143 — is set to give the English 
character set and 128 to give the USA 
set you can alternate between them at 
will. You must however remember 


. Listing 3. Assembly listing of Listing 1. 


100 ORG 50000 
FDBS 110 FILEST EQU 44949 


SCOB 120 DEFADD EQU 23543 ¡System Variable 

EA60 2ABSFD 130 INIT LD HL, (FILEST) ;Get start of file 

EASS DD2AOBSC 140 LD IX, (DEFADD) jPass the value of 

EA67 DDSEO4 150 LD E, (1X+4) ja (file-length) to 

EA6A DDS405 160 LD D, (IX+5) ¡DE 

EA6D 19 170 ADD HL,DE jHLzstart + length 

EASE EB 180 EX DE, HL ¡Move it to DE 

EA6F 210000 190 LD HL,O ¡HL=Word Count 

EA72 010040 200 NXLINE LD BC,64#256+0 jLoad B,64 & C,O 

EA7S IB 210 NXCHAR DEC DE jStep through file 

EA75 1A 220 LD A, (DE) ! 

EA77 FEZO 230 CP 32 jif Space - 

EA79 2818 240 JR 7 ,FNDSPC ) jump 

EA7B FEBO 250 CP 128 jif Graphic - 

EA7D 3014 250 JR NC,FNDSPC j jump 

EA7F OEO1 270 LD C,1 jset flag 

EAB1 10F2 '280 LINEND DJNZ NXCHAR jif not end of line 
get next char 

EAST os 290 ADD  HL,BC jflag hoids state of 
first char in line, 
add to count 

EAB4 SABSFD 300 LD ¿find if address 


A, (FILEST+1) 
D 


EAB7 BA 310 CP jcounter (DE) has 
EABB 20EB 320 JR NZ,NXLINE ¡reached the 

EASA SABSFD 330 LD A, (FILEST) sstart of the 

EABD BB 340 CP E ¡file - if so 

EABE 20E2 350 JR NZ,NXLINE jthen get next line 
EA90 ES 360 PUSH HL ¿move word count 
EA91 C1 370 POP BC ¡to BC 

EA92 C9 380 RET jand return 

EA93 AF 390 FNDSPC XOR A ¡clear A 

EA94 B9 400 CP c jis flag O 

EA9S 28EA 410 JR Z,LINEND jif so jump 

EA97 23 420 INC HL jincrease word count 
EA98 OD 430 DEC C ¡zero flag 

EA99 18E6 440 JR LINEND ¡back to routine 


Tasword Two 


3Arbitary ORG 
¡Address in Tasword 
that stores the 
start of the file 


whether the hash on screen will print 
as a pound or as a hash. 

If you rarely use the hash character 
the other method will suffice. Set the 
printer to the English character set 
and alter the hash character so that it 
looks like a pound sign on screen. It 
will still have to be obtained by 
pressing Symbol Shift 3 but at least 
you can see what is happening. To do 
that enter, as a direct command 

FOR n = 0 TO 7: POKE (61208 + 
n), PEEK (61696 + n): NEXT n 
The pound sign on the keyboard will 
still give you a pound on screen so 
enter 

FOR n = 0 to 7: POKE (61696 + 
n) 0: NEXT n: POKE 61697,4: 
POKE 61698,2 : 
to change it to a backward apostrophe. 
Now you have only to remember to 
press the correct keys but at least what 
you see is what you get. If you want to 
use hash you will have to use the 
graphics characters to swop sets as 
before. 


Help Pages 


If you change the uses of the graphics 
characters you will need to alter the 
help pages accordingly. The easiest 
way is to move them into the text file 


to work on. Enter in direct mode 
LET s = FN p(64949): FOR n = 0 


TO 1407: POKE (s + n) PEEK 
(54784 + n) NEXT n 
which will move it into the file. To 
return it to its correct place — pro- 
vided you have not moved it from the 
start of the file — go into direct mode 
and enter 

LET s = FN p(64949): FOR n = 0 
TO 1407: POKE (54784 + n), PEEK 
(s + n: NEXT n ? 
To work on the Extended mode page 
replace the 54784 in the above with 
56320. | 


Keyboard 


Tasword uses two of the system vari- 
ables to time its reading of the 
keyboard. REPDEL at 23561 stores 
the length of time a key must be held 
down before it repeats and is normally 
Set to 35. That can be usefully 
changed to around 20 for fast typists. 

One useful modification is to alter 
the sound made when a key is pressed, 
as on a rattly keyboard the orginal 
sound is usually lost. The BEEPER 
routine in the ROM at 03BSh is used 
which needs, on entry, the DE regis- 
ter holding the frequency x time and 
HL holding the length of the timing 
loop. 

Tasword sets D to zero and E to the 
value of PIP (23609), normally 5 but 
set to 2 by line 15. The value of HL is 
held in 59161 and 59162; POKEing 
59161,50 gives a loud(ish) typewriter 
Click. 


Headers, footers... 


Listing four is a routine which allows 
you to add headers, footers and page 
numbers to a printed text file, and 
print as many copies as you want. 
Delete lines 200 to 300 from your 
original copy of Tasword and type in 
the listing. Due to memory limita- 
tions, headers and footers should be 
included in the listing as shown. 

Lines 200 to 240 should be self- 
explanatory as they ask for input from 
the user. Line 250 calculates which 
part of the text file is to be printed and 
tells you, on screen, what is happen- 
ing. Lines 255 and 260 are more 
calculation. Line 270 puts your header 
here — remember to allow for the 
margin. Line 275 is part of the original 
Tasword Basic and takes into account 
different printer interfaces; you may 
find that causes a blank line to be 
output. 

Line 280 calls Tasword to do the 
Printing. Line 285 is similar to 275. 
Line 290 checks if you want to quit 
Printing; the RUN ensures that all the 


additional variables created are 
CLEARed. Line 292 ensures that the 
page number is printed at the bottom 


of the page. Line 294 puts your footer - 


here. Line 296 prints the page num- 
ber; as most interfaces do not handle 
TAB correctly a number of spaces are 
LPRINTed. The number is posi- 
tioned in the middle of the page. 
PEEK 60927 is the width of the 
margin. 

The routine needs one memory 
location to store the number of text 
lines per page and I have used 31940 
for that. You will have to alter the 
CLEAR in line 15 to 31939. Alterna- 
tively, you could use one of the 
unused locations in the system vari- 
ables, 23681, 23728 or 23729, pro- 
vided your printer interface does not 
use it. 

The routine has been made as short 
as possible but if you use a microdrive 
or the Thurnall, Statacom or Watford 
disc systems you may find you get an 
“out of memory” error. That is because 
those systems use memory when load- 
ing or saving. Using cassette, or the 
Technology Research disc system, 
does not. 

Try the routine using a file which 
you have safely saved. If you do get 
the “out of memory” report you will 
have to shorten the Tasword Basic. 
Two methods can be used, both of 
which are used in the routine. The 
first is to change all the numbers to 
use VAL — that is 123 becomes 
VAL“123” and so on — and that will 
save three bytes per number. It may 
not seem a great deal but in the 
routine 200 bytes are saved by this 
method. 

The second method is to use vari- 
ables in place of numbers. In the 
routine z is used for zero and u for 
one. If you add LET z=0: Let u=1 to 
line 10 and then change all occurences 
— omitting line 15 and the sub- 
routine at 4000 — you can save a 
further three bytes every time. 

Depending on your version of Tas- 
word you can save up to 1.5K which is 
more than enough for this routine and 
any of your own. As long as you have 
700-800 bytes free you should not 
have any problems — to check the 
amount of free memory enter 

PRINT 65535—USR 7962 

Finaily... 
All the above will prove useful and 
enhance what is already an impressive 
program. If vou have further ideas for 
improvements [ would be pleased to 
hear from you c/o Sinclair User. 


— "oi 


Listing 4. Print routine for headers, 
footers, page numbers and multiple copies 
2002CLS : GO SUB VAL "4000": PR 
INT AT VAL "4",VAL "8";"FRINT OF 
TIONS": PRINT " just press ENTE 
R for default values given in 
brackets": LET z=VAL "0": LET u 
SVAL "1": LET gs-VAL "46000": LET 
i=VAL "8": LET j=z: LET jO-VAL 
"ZZ": LET x=VAL "31940": LET as= 
"Text Lines per Page ": GO SUE V 
AL "850": LET i=VAL "10": PRINT 
AT i,z;"Line Spacing? (1)": GO S 
UB gs: IF a$z"" THEN LET a$z"i" 

210 POKE VAL "62235".VAL a$: LE 
T i=VAL "12": PRINT AT i,z:"Star 
t at line? (1)": GO SUB gs: IF a 
$-"" THEN LET a$="1" 

220 LET c=VAL "64"*(INT VAL a$- 
u): LET st=c+FN p(VAL "52215"): 
LET i=VAL "14": PRINT AT i,23"Fi 
nish at Line? (last)": GO SUB gs 
: IF a$-"" THEN LET len=a-c: GO 
TO VaL "230" 

225 LET len=VAL 
siz 

230 LET i=VAL "16": PRINT AT is 
2;"First Page Number (1)": GO SU 
B gs: IF as="" THEN LET as="1" 

240 LET pa=VAL a$-u: LET i-VAL 
"18": PRINT AT i,z;"Number of Co 
Pies (1)": GO SUB gs: IF as="" T 
HEN LET as="1" 

250 LET co=VAL as: LET end=st+] 
en: LET pl=INT (PEEK VAL "31940" 
/PEEK VAL "62235")*VAL "64": LET 

tp=INT ((len/pl)*u): FOR nsu TO 

co: LET fl=z: LET cp=pa: FOR f= 
st TO end-u STEP pl: LET b=f: LE 
T x=VAL "60045": GO SUB VAL "950 

"r LET cp=cp+u: RANDOMIZE USR VA 
L "59806": RANDOMIZE USR (FN DIN 
AL "52472")): CLS : PRINT AT VAL 

"10",z;"Press the q key to quit 
printing";AT VAL "14",z;"Printi 
ng Copy Number";n;AT VAL "18" 523 
"Page Number ";cp: IF end-f<pl T 


"64"*INT VAL as 


HEN LET b=end-f: LET fl=u: GO TO 
260 

255 LET b=p1 

260 LET x=VAL "60049": GO SUB Y 
AL "950" 

270 REM LFRINT "Header" 

275 LET c=FEEk VAL "62470": IF 
c<>z THEN LPRINT CHR c 

280 RANDOMIZE USR VAL "40038" 
285 LET c-PEEK VAL "52471": IF 
Ci?z THEN LFRINT CHR# c 


290 RANDOMIZE USR VAL 
IF INKEY+$="q" THEN RUN 
292 IF fl=u THEN FOR g=u TO (pl 
-b)*FEEK VAL "42235" /VAL "64"3 L 
PRINT : NEXT g 

294 REM LPRINT "Footer" 

296 FOR g=1 TO 25«PEEK 50927: Ë 
PRINT " "33 NEXT g: LPRINT "Page 
No "3cp3" of "stp: LPRINT CHR$ 
12: NEXT f: NEXT n: RUN 

Variables used in Listing 4. 
st = start of file 


"359806": 


= length of the file 

= first page number 

= number of copies 

= end of file 
= length of page (to be printed) 
= total number of pages 

= flag 

= Current page 


There is one problem, at least, to 
which I do not have the answer. The 
length of the text file (—22) is held in 
locations 64150 and 64151. Try 
POKEing 64150,122, RUN Tasword, 
clear the text file — E Mode X — and 
scroll through it. How do you get rid 
of line 3577 


el 


M a ap PED. 
2 ACE RESCUE is a kind of 
Ç teiar docking game for the 16K 
ZX-81. You attempt to man- 
ouevre a series of unmanned space 
probes into the open bay of a space 
station positioned in the middle of 
an asteroid belt. Steer yourself with 
the four cursor keys but beware—in 
¡those weightless conditions your 
craft will continue to move in a given 
direction, even when propulsive 
force is no longer being applied. 

The probes naturally will be 
" -destroyed if they hit an asteroid and 
2 d the collision will leave behind a 

= Cloud of debris big enough to wreck 
the next vehicle but too small to 
show upon the radar. 

Ten marks are deducted for every 
crash and your score is displayed at 
Ø the end of the game. If things become 
too easy, change line 50 to give more 
? asteroids. 


2080 FOR F=0 TG Go 
2819 PRINT AT 2,0; “CONGRATULATIO 
HS" 

2020 PRINT AT $9,.0;"m 
am 


28232 NEXT E 


CESA TOLOSA 


dØ NE 2040 PRINT AT OG.9:"ECORE- let 
S@ FOR N=0 TR 30 z” " 
An LET Z-INT (RNT#30) +L 2050 PAUSE 1009 
Tü LET X-iNT (RNG e205 eL 2055 CLS 
88 LET AZ. NG SÍ 2858 GOTO 1a 
GO PRINT HT NES OCHRE 13% 4999 STOP 
129 NEXT N 5900 LET U-INT (RH ez +F 
110 G0sus 5006 5010 LET Q-INT (BND: 10) A 
111 SLOR 5828 LET Ri(U.G)-10 ` 
178 LET v=o 5839 PRINT AT 3,0: "R" 
180 LET R=>8 5640 FOR F=W-2 TO wee 
128 LET E-15 Soo PRINT AT D+2,F;“ " 
220 LET A-CODE INHEv$ 5055 LET A10+2.F)21 
505 IF INKEY£$£-"" THEN LET A-Y 5959 PRINT AT G-2.F;" " 
210 LET Y=h S255 LET AIO-2.F)=1 
215 PRINT AT R.E; “S> ^ 5070 NEXT F 
228_IF_A=33 AND E:0 AND EcS® TH S5086 FOR F=a-2 TD Gee 
EN LET E-E-1 - 5999 PRINTÍ AT FL aso“ 
239 IF _A=S6 AND E:9 AND EcS@ TH Saas LET Ou, ui 
SN LET E=E+1 S109 PRINT AT P, UA ` 
240 IF A=S5 AND pre AND Rc31 TH 5185 LET AF UÈIT 
EM LET RzR&-i Sii@ NEXT F 
ZSO IF 6-24 AND Rc21 AND Rð TH 5120 LET T-(INT IENDEASJ 
EN LET R=R+1 S130 IF T=2 THEN PRINT AT 3.512 
255 LET User Uns 
260 LET &-á!E.Rm; S149 IF T=8 THEN LET 21Q.w+=;=9 
265 PRINT HT EE: “Ee 5159 IF T=} THEN PRINT ÁT ou. 
270 IF S=1 THEN GOSUE 1930 US 
2589 IF Siet THER GREE 2009 31639 IF T=} TREN LET SQ. 2) =Æ 
2250 GOTO 206 5120 IF T= THEN ELIMI Hi e Kit 
1092 PRINT AT 0.0: “PE: 1136 KM 
1918 baa doi - 5188 IF T=2 THEN LETS gra ul =e 
2 LESS ` 5190 IF T=5 E EINI m 
1950 Pause So SETAS "2s "2 THEN HT ES, 
INT AT R,E;“ E S206 IF T=3 {G-2.U3 = 
19508 GOTO 170 ` a 52 APA S b UT 


219 Err: 


